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'O Introducción 


OS dispositivos perifé- 
ricos son utilizados 
por la CPU (unidad 
central de proceso), 
como elementos de 
intercambio de infor- 
mación con el exte- 
rior. 

Debe tenerse en cuenta que hay gran 
variedad de dispositivos y soportes de in- 
formación, por lo que también han de ser 
variados los conductos por los que se 
transmite. 

Podemos agrupar los periféricos en tres 
grupos: dispositivos de almacenamiento, 
dispositivos de entrada y dispositivos de 
salida. Algunas veces los mismos disposi- 
tivos de entrada pueden funcionar para 
salida. 


[A Relación entre los dispositivos que 
componen la parte física de la máquina. 
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DISPOSITIVOS DE ENTRADA-SALIDA 


'O Dispositivos de entrada 
y salida 


Como su nombre indica, son los dispo- 
sitivos que permitirán la entrada y salida 
de la información del y al núcleo del or- 
denador. 

Podemos encontrar dentro del grupo 
de periféricos de entrada teclados, lec- 
toras de tarjetas, lectoras de cintas, lec- 
toras Ópticas, lectoras magnéticas, etc. 
Mientras que una impresora, un plotter, 
un monitor, etc., son dispositivos periféri- 
cos de salida. Cada uno de estos ele- 
mentos utiliza un soporte propio para 
asumir y transferir la información. Así, un 
teclado utilizará las pulsaciones que el 
operador ejecute para transmitir la infor- 
mación; un lector óptico examinará los 
caracteres impresos; una impresora nos 
devolverá la información procesada, es- 
crita en un papel, etc. 


gráficos, por tanto, es un dispositivo de 


El tablero gráfico permite introducir datos 
y entrada de datos. 


Los periféricos han sufrido un gran des- 
arrollo en cuanto a su volumen; en un 
principio predominaron las lectoras de 
tarjetas perforadas; pero hoy en día és- 
tos han dejado paso a los terminales ví- 
deo, impresoras láser, incluso puede ha- 
blarse de sintetizadores y reconocedores 
de voz. En la actualidad, los dispositivos 
de entrada y salida más utilizados, ade- 
más de las impresoras, son los terminales 
de vídeo. 


Y 


A Los disquetes son dispositivos que sirven 
2) para conservar datos o programas que se 
pueden volver a utilizar. 


1m Periféricos de 
| almacenamiento 


Este tipo de dispositivos tienen una 
gran importancia, ya que han sido los 
principales medios de desarrollo del or- 
denador actual. No son otra cosa que 
dispositivos capaces de almacenar infor- 
mación, es decir, son memorias. 

Tan sólo mencionaremos los dos tipos 
más importantes: la banda o cinta mag- 
nética y el disco. Son elementos magné- 
ticos todos ellos y su principio de funcio- 
namiento es básicamente el mismo. 

La música, el sonido y las imágenes 
pueden ser almacenadas en cintas y dis- 
cos. Esta se trata de información almace- 
nada y recuperable tantas veces como 
se quiera. La diferencia entre la informa- 
ción almacenada por ordenador y la de 
disco está en que la primera utilizará téc- 
nicas digitales y la segunda analógicas 
(aunque hoy en día tienden a ser digita- 
les también). 

La diferencia entre las señales analógi- 
cas y las digitales están básicamente en 
que la señal analógica maneja un es- 
pectro más o menos amplio de intensida- 
des y/o frecuencias; mientras que la di- 


gital sólo maneja dos posibles estados 1 
y 0. Ala hora de grabar estas señales, las 
digitales, por distinguir dos estados, son 
mucho más fáciles de plasmar en un me- 
dio magnético. Sin embargo, la señal 
analógica se almacenará en base a pro- 
vocar diferencias en la densidad de las 
partículas magnetizables situadas en 
una cinta cassette, por ejemplo, o bien 
creando una serie de surcos en la super- 
ficie de un disco. 


Señal digital. 


La cinta magnética es de material plás- 
tico y está recubierta en una de sus dos 
caras por una película delgada de ma- 
terial magnetizable. Las cintas más típi- 
cas tienen media pulgada de ancho y 
1200 ó 2400 pies de longitud. Está enro- 
llada en un carrete y se va desenrollan- 
do pasando a otro carrete. Mientras esto 
sucede, desfila frente a unas cabezas 
lectoras. Puede moverse hacia adelante 
o hacia atrás. 


AAN 


Tiempo 


Estados 


Señal analógica Tiempo 


Representación esquemática de una 
cinta magnética. : 


Los discos son superficies planas circu- 
lares de dos caras. Sobre éstos se depo- 
sita una película de material magnetiza- 
ble. El disco gira alrededor de un eje que 
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pasa por el centro del círculo y es per- 
pendicular a su plano. La cabeza de lec- 
tura-escritura se sitúa sobre él. Graba so- 
bre el disco a base de circunferencias 
concéntricas que se llaman pistas. Cada 
pista lleva la misma cantidad de informa- 
ción, por lo que las pistas interiores ten- 
drán menos densidad de grabación. La 
cabeza lectora puede acceder a cual- 
quier pista que queramos sin tener que 
"pasar por los anteriores. 


(dk Representación de una unidad de cuatro 
MA) discos; las cabezas pueden leer los discos 
independientemente. 


¿ Canales de comunicación 


Estos se sitúan entre la CPU y los perifé- 
ricos. Son los medios por los cuales la CPU 
puede comunicarse con los periféricos. 
En la actualidad se tiende a la estanda- 
rización de éstos para evitar problemas 
entre diferentes ordenadores que se 
quieren conectar entre sí. 


Básicamente constan de: 


— Cable y conectores. 

— Corrientes, impedancias y tensio- 
nes. Elementos electrónicos. 

— Estructura de la señal. Elemento ló- 
gico. 


Hay dos tipos principales, en serie y en 
paralelo. Los que tienen configuración 
en serie están formados por dos hilos de 
transmisión, uno para emisión y otro para 
recepción, además de un cierto número 
de señales dedicadas al diálogo de los 
elementos que une. Estos hacen la comu- 
nicación entre los dispositivos «bit a bit». 
Aunque estas líneas de emisión y recep- 
ción funcionan en serie, las de diálogo 
funcionan en paralelo. 

El interface (como también se conoce 
a los canales de transmisión) en parale- 
lo se distingue del de serie en que se 
efectúa la emisión y recepción simultá- 
nea de varios bits; generalmente un byte 
(8 bits). La transmisión es más rápida, 
pero implica un número mayor de ca- 
bles. 


Codificadores 
y decodificadores 


Son circuitos lógicos con un gran nú- 
mero de entradas que proporcionan a la 
salida una combinación binaria determi- 
nada por la entrada activa en ese mo- 
mento. Estos circuitos ayudan a crear 
una distribución de tareas de comunica- 
ción más organizadas. Cuando un dispo- 
sitivo comienza a crecer en recursos el 
cableado o circuitería de comunicación 
es el elemento más directamente res- 
ponsable de acumulaciones de energía 
y, por tanto, de calor, y del aumento de 
los tiempos de ejecución y control de la 
máquina. Por esta razón en los sistemas 
grandes se suelen interconexionar los 
elementos tratando de evitar un creci- 
miento excesivo. 


IMPRESORA TECLADO 


ponentes del harware. 


MONITOR DISPOSITIVOS 


ALMACENAMIENTO 


| A Disposición de la barra colectora para el control de la comunicación entre los diferentes com- 


Un esquema muy usado es el de la 
barra colectora. A ésta se le suele asig- 
nar un protocolo de comunicación pro- 
pio creado por los codificadores y deco- 
dificadores que proporciona que a cada 
elemento le llegue la información de la 
forma deseada, y evitando que las uni- 


dades conectadas a la barra tengan co- 
municación entre sí, sin que se produz- 
can interferencias. Con este tipo de es- 
quema, los elementos de la conmuta- 
ción se minimizan porque cada elemen- 
to del sistema sólo necesita la conexión 
con la barra. 


Ol Programas 


de ejemplo 


RATAREMOS en este 
capítulo de aclarar 
las ideas del lector ya 
que probablemente, 
y después de una 
descripción del en- 
samblador tan den- 
sa, no hayan queda- 
do claras las posibles aplicaciones de al- 
gunas instrucciones. 

Para ello empezaremos realizando un 
sencillo programa para multiplicar 2 
bytes, y luego iremos haciendo otros 
ejemplos, cada vez más complicados. 
De todas formas, en el tomo 39 se trata- 
rán nuevos ejemplos de utilidad para los 
ordenadores que dispongan del micro- 
procesador Z-80. 

Con ello esperamos que el lector tome 
idea clara acerca de las dos caracterís- 
ticas principales del lenguaje máquina: 
su potencia y su dificultad. No debe olvi- 
darse que, como en todos los lenguajes, 
no se llega a una utilización óptima de 
sus posibilidades sin haber adquirido mu- 
cha práctica y gran cantidad de conoci- 
mientos acerca del entorno en que el 
lenguaje se utilizará. 

En nuestro caso, el lenguaje máquina 
del Z-80 será la máquina a nivel hardwa- 
re. Sin un conocimiento claro acerca de 
su arquitectura será muy dificil obtener la 
máxima potencia de la misma. 


O Primer ejemplo. Multiplicación 
de dos bytes 


La utilidad de este ejemplo es mostrar 
la lógica binaria y como se realizan con 
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ella operaciones complicadas. Veamos 
el proceso del programa con un sencillo 
organigrama. 


Expliquemos brevemente el proceso: 

Se trata de multiplicar dos número bi- 
narios. Lo haremos como si multiplicáse- 
mos dos números a mano; multiplicamos 
un dígito del multiplicador por todo el 
multiplicando y sumamos el resultado al 
producto, desplazando previamente, 
dependiendo del orden del dígito que 
multiplique. Si observamos detenidamen- 


3 

3 

5 

.280 

Ri EQU 1BBDH 
R2 10B1H 
R3 EQU 1982H 
R4 EQU 1003H 
RS EQU 1004 
5 

inz EQU 10120H 


El algoritmo es el siguiente. Desplaza- 
mos el byte multiplicador poniendo el dí- 
gito que va a multiplicar en el carry. Si es 
cero, pasamos al siguiente dígito, des- 
plazando el multiplicando (T1) con ayu- 
da del registro adicional T2, para que en 
sucesivas sumas el par T2T1 contenga ya 
el número desplazado convenientemen- 
te. Si el carry no es cero, sumamos el par 
T2T1 al resultado (la multiplicación por 1 
es obvia) y luego continuamos el proce- 
so como si el digito que multiplica fuese 
cero; es decir, desplazamos el par T2T1, 
etcétera. 


PROGRAMA QUE MULTIPLICA DOS NUMEROS 
8 BITS 


INI e 
ROTA A_DERECHA e SUMAR SI ES 1 
SI_CERO SIGUIENTE BIT 


NC,CERO 5 
A,R4 =R4 
¡A=A+RI sumamos eL RESULTADO 
¡R4= O DEL BIT 


¡R 

¿ROTAMOS A IZQUIERDA Ri 
LD A/D ¿Y A¡ADIMOS A R2 

¡EL CARRY = 


¿CONTINUAMOS EL BUCLE HASTA 8 


te, al utilizar solamente los números 1 y O, 
el resultado de multiplicar es el mismo 
número o cero, respectivamente. Por 


ello, la operación multiplicar se reduce a 
sumar números desplazados. 

En el listado en ensamblador los co- 
mentarios explican paso a paso cuál es 
el proceso. 


IO BUCLE DE 


BITV,-7 UE RI 


Realizamos todo el proceso ocho ve- 
ces (reguladas por el contenido del re- 
gistro B), que corresponden a los 8 bits 
del byte multiplicador T3. 


'O Segundo ejemplo. Búsqueda 
del máximo de una tabla 


Este ejemplo es muy sencillo. Recorre- 
mos una tabla de bytes buscando el que 
tenga el valor mayor. A continuación 
puede verse el listado comentando paso 
a paso el proceso. 


5 PROGRAMA QUE BUSCA MAXIMO EN TABLA 
TABLA 
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LTABLA 
3 
5 


-. 28D 
BUSCA EQU 1019H 
Busca: LD HL, TABLA ¿HL = PRINCIFIO TABLA 
LD B,LTABLA-1 ¡B__= NUMERO _ COMPARACIONES 
LD A, (HL) ¡PRIMER VALOR 
LD D,A ¡TOMADO _ COMO _ MAXIMO 
BUCLE: INC HE ¡COGER SIGUIENTE 
cP ¿COMPARARLO CON MAXIMO 
JM M, MENOR ¿SALTA SI AX%D 
LD yA ¿ACTUALIZA MAXIMO : 
MENOR: ad BUCLE ¿DECREMENTA B Y SALTA SI B <> 
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' Programa: 
Editor 

de textos 

para SPECTRUM 


L programa que va- tas, apuntes, informes o cualquier cosa 
mos a ver en este que nosotros deseemos, con la particula- 
tomo es una utilidad ridad de que en cualquier momento po- 
que todo el mundo demos modificar y/o borrar cualquier 
suele necesitar. Este parte del texto. 

es un EDITOR DE TEX- 

TOS. Nos servirá para 

escribir nuestras car- 


EEES 


* EDITOR DE TEXTOS *x 
ES 


ES 


*x(c)Ed. Siglo Culturalx* 
AGO OOOO OOOO lao joa jokok 


CLEAR 29000 
PRINT AT 10,9; FLASH 1;"CARGANDO DATAS" 
PRINT AT 12,7; FLASH 1; INVERSE 1; INK 4;"ESPERE UN MOMENTO. " 
CHEK=0 
LIN=7000 
COL=0 
Xx1=29500 
Xx2=2850 
SW=0 
NN=17 
I=X1 TO X1+X2 
READ A 
LET COL=COL+1 
IF COL=NN THEN LET NUM=A: IF NUM<>CHEK THEN CLS : PRINT "ERROR DE DATA 
LA LINEA ";LIN: GO TO 9999 
IF COL=NN THEN LET COL=0: LET LIN=LIN+2: LET CHEK=0: LET I=I-1: GO TO 2 


POKE I,A 
LET CHEK=CHEK+A 
260 NEXT 1 
270 READ A 
300 IF SW=0 THEN LET SW=1: LET NN=9: LET CHEK=0: LET COL=0: LET LIN=9000: LET 
X1=32768: LET X2=1024: GO TO 190 
310 CLS 


n PROGRAMAS 


PRINT " 
PRINT : PRINT : PRINT 

PRINT " QUIERES GUARDARLO? (S/N)" 
LET A$=INKEY$ 

IF A$="" THEN GO TO 350 

IF A$="N" OR A$="n" THEN GO TO 430 


390 PRINT : PRINT : PRINT 
400 PRINT " PREPARA EL CASSETTE" 
410 SAVE "CODIGO"CODE 29500, 3000 


SAVE "SET"CODE 32768,1024 


430 PRINT : PRINT : PRINT 
440 PRINT " QUIERES EJECUTARLO? (S/N)" 
450 PAUSE 2: PAUSE 2: LET AS=INKEYS 


IF A$="" THEN GO TO 450 
IF A$<>"S" AND A$<>"s" 
RANDOMIZE USR 29500 

PRINT : PRINT "ADIOS ...”" 


El editor de textos se compone de tres 
programas distintos. El primero de ellos es 
el que transforma una serie de líneas da- 
tas en un fichero de bytes y lo almacena 
en una cinta de cassette. Introduce este 
programa teniendo mucho cuidado de 


AMOO OOOO OOOO OK 


* EDITOR DE TEXTOS * 
OIGO kk 


EEES 


*x(c)Ed. Siglo Culturalx 
AGO OSO OSOS iololOiOjO Ok 


PAPER O 
BORDER O 

INK 6 

CLEAR 29000 

PRINT AT 10,13; FLASH 1;"ESPERE" 
PRINT AT 12,4; FLASH 1; 
LOAD "CODIGO"CODE 
LOAD "SET"CODE 
RANDOMIZE USR 29500 


Una vez grabado el código máquina 
tenemos que introducir a segundo pro- 
grama. Este solo se encargara de leer el 


PROGRAMA CARGADO EN MEMORIA. " 


IF A$<>"S" AND A$<>"s" THEN GO TO 350 


IF A$="N" OR A$="n" THEN GO TO 9999 
THEN GO TO 450 s 


INVERSE 1; 


las líneas DATA y lo ejecuta. Una vez que 
el ordenador haya almacenado todo el 
código máquina en la memoria te dirá 
que prepares una cinta de cassette para 
su grabación. 


INK 4;"CARGANDO CODIGO MAQUINA. " 


código máquina que hemos almacena- 
do en cinta y ejecutarlo. 


1000 aia SOS OOlOIOlO OK HOHKk 


1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 


X > * k 


GRES lojOjo kk 


. 
, 


R_SP 


R_SPC 


HL_COR 


HL_0 


HL_1 


AG 


P_COLI 


ORG 
LD 
LD 
LD 
LD 
CALL 
CALL 
LD 


29500 
A, 128 
(23607),A 
A,8 
(23658),A 
SET_MD 
SET_MI 
A, 1 
(23617),A 
EXT_M 
A, 1 

5633 
OVER_1 
HL, LOWER 
A, (CY) 
AF 

A 

(CY),A 
LINEA 

AF 
(CY),A 
DOS 

A, (MI) 
(CX),A 
CP_L 
HL_COR 
B, 65 

BC 

B, 255 
(HL), 32 
HL 

R_SPC 

BC 

R_SP 
P_COLI 
HL, 35000 
A, (CX) 
D, O 

E, A 

DE 

A, (CY) 

A 

Z, HL_1 
DE, 64 
B,A 

HL, DE 
HL_O 

DE 

HL, DE 


KEY 

A 

AF 
NZ,KEY_P 
CURSOR 
CURSOR 
AF 

Z,AG 

A, (CX) 


(COORDS), A 


1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 


:1077 


1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 


1104 
1105 


1106 
1107 
1108 
1109 
1110 
1117 
LIN 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 


KEY 


KEY_P 


CALL 


LD 
RST 
LD 
RST 
XOR 
RST 


CALL 


a 


A 
(23560),A 
56 
A, (23560) 
(LAST_K),A 


128 

NC 

13 

Z, ENTER 
12 

Z, DELETE 
24 

Z, DELETE 
6 
Z,CP_L 
26 
Z,CP_L 
15 

Z, CINTA 
1 

Z, CINTA 
8 
Z,CUR_L 
9 
Z,CUR_R 
10 
Z,CUR_D 
3 
Z,CUR_U 
7 

Z, INSTR 
25 

Z, INSTR 
5 

Z, MARG_D 
30 

Z 

29 

Z 

31 

Z 

28 

Z, MARG_D 
Z 

Z, MARG_I 
27 

Z, MARG_I 
14 

Z, EXT_M 
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1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1180 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 


DER 


12Q 


AG_ 


RI 


RD 


1 


cp 16 
JP Z,DE_LI 
CP L7 
LES A $4 SE UB 1 
Ccp 18 
JP Z,LI_DE 
OP ee 
JP Z,CU_FI 
AS: 
JP Z,CU_PR 
cP 19 
JP Z, IN_LI 
27.520 
JP Z,IN_CH 
CP: .21 


JP  Z,CE_LI 

(0 (eE 

JP  Z,BO_CH 

0 MIOS 

JP Z,IMPRES 
CALL BEEP 

CALL OVER_1 
CALL AT 

LD  A,(LAST_K) 
PUSH AF 

CALL CL_CHR 
POP AF 

LD (LAST_K),A4 
PUSH AF 

CALL HL_COR 
POP AF 

LD (HL),A 
CALL AT 

LD  A,(CX) 

SRL A 

JR  C,DER 
CALL NC, IZQ 

JR  SET_P 

LD  A,(LAST_K) 


RST 186 


JR  SET_P 

LD  HBL,(D_SET) 
LD: D-0 

LD  A,(LAST_K) 
LD EA 

LD. 0 d/8 

ADD HL,DE 
DJNZ AG_1 

LD 


* 


oral 


LD 

SLA 

SLA 

SLA 

SLA 

LD (HL),A 

INC HL 

DJNZ RI 

LD  A,(LAST_K) 

RST 16 

EX  DE,HL 

LD  B,8 

LD — A,(HL) 

SRL A 

SRL A 

SRL A 

SRL A 
( 


>>> >0nu 


1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
C1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 


SET_P 


:SET_O 


NEW_L 


IMPRES 


IMPRE 


INC 


PUSH 
CALL 
POP 
RET 
INC 


RET 


PUSH 


PUSH 
XOR 


HL 
RD 


COMP_1 
A, (CX) 

A 

HL, MD 
(HL) 

C, SET_0 
NZ, NEW_L 
64 
Z,NEW_L 
(CX),A 


A, (MI) 
(CX),A 
A, (CY) 


g- 
A,128 
(23607),A 
A, (CX) 
D,A 

A, (CY) 
E,A 

DE 

A, (C_Y) 
AF 

A 
(C_Y),A 
(CX),A 
(CY),A 
B,11 

BC 
SCREEN 
AF 

BC 

DE 

HL 

3756 


A, (CY) 
A, 22 
(CY),A 
BC 

IMPRE 
A,8 
(C_Y),A 
SCREEN 
B,112 
HL, +4800 


3762 
gr 

AF 
(C_Y),A 


1275 POP DE 1344 XOR A 


1276 LD  A,D 1345 LD (CX),A 
1277 LD (CX),A 1346 CALL HL_COR 
1278 LD A,E 1347 LD .B,0O 
1279 LD (CY),A 1348 CELI_I LD  A,(HL) 
1280 JP  BEEP 1349 INC HL 
1281 BO_CH CALL HL_COR 1350 INC B 

1282 PUSH HL 1351 CP 32 
1283 POP DE 1352 JR  Z,CELI_I 
1284 INC HL 1353 PUSH BC 
1285 LD  A,(CX) 1354 LD  A,63 
1286 LD BA 1355 LD (CX),A 
1287 LD  A,64 1356 CALL HL_COR 
1288 SUB B 1357 LD C,0 
1289 LD  B,O 1358 CELI_D LD — A,(HL) 
1290 LD C,A 1359 DEC HL 
1291 LDIR 1360 INC C 

1292 LD  A,32 1361 CP 32 
1293 LD (DE),A 1362 JR  Z,CELI_D 
1294 CALL LOP_ 1363 POP DE 
1295 CALL CL_LIN 1364 LD B,)D 
1296 CALL P_L_C 1365 DEC B 

1297 JP  BEEP 1366 DEC C 

1298 IN_CH LD  A,(CY) 1367 LD:*: ¿AFB 
1299 PUSH AF 1368 ADD A,C 
1300 LD (CY),A 1369 LD  D,A 
1301 LD  A,(CX) 1370 LD  A,64 
1302 PUSH AF 1371 SUB D 

1303 LD 4,64 1372 PUSH AF 
1304 LD (CX),A 1373 XOR A 

1305 CALL HL_COR 1374 LD (CX),A 
1306 POP AF 1375 PUSH BC 
1307 LD (CX),A 1376 CALL HL_COR 
1308 POP AF 1377 POP BC 
1309 LD (CY),A 1378 LD  D,O 
1310 DEC HL 1379 LD  E,B 
1311 LD — A,(HL) 1380 ADD HL,DE 
1312 CP 32 1381 LD  DE,23350 
1313 RET NZ 1382 POP AF 
1314 EX  DE,HL 1383 PUSH BC 
1315 PUSH DE 1384 LID B,JO 
1318 POP HL 1385 LD C,A 
1317 DEC HL 1386 PUSH BC 
1318 LD  A,(CX) C1387 LDIR 

1319 LD B,JA 1388 POP DE 
1320 LD  A,63 1389 POP BC 
1321 SUB B 1390 PUSH DE 
1322 LD  C,A 1391 LD  A,B 
1323 LD BO 1392 ADD A,C 
1324 LDDR 1393 SRL A 

1325 CALL BEEP 1394 PUSH AF 
1326 CALL HL_COR 1395 CALL HL_COR 
1327 LD (HL), 32 1396 POP AF 
1328 LD  A,(CX) 1397 LD . B,A 
1329 LD" D,4 1398 PUSH AF 
1330 LD  A,(CY) 1399 CALL PON 
1331 LD  E,JA 1400 EX  DE,HL 
1332 PUSH DE 1401 LD  HBL,23350 
1333 LD. A, (C_Y) 1402 POP AF 
1334 PUSH AF 1403 POP BC 
1335 LD  B,1 1404 LDIR 

1336 Cid IA 20 1405 LD  B,A 
1337 CE_LI LD  A,(CX) 1406 EX  DE,HL 
1338 LD  D,A 1407 CALL PON 
1339 LD  A,(CY) 1408 ED" BL 
1340 LD  E,JA 1409 0 de Y 
1341 PUSH DE 1410 PON LD  A,32 
1342 LD  A,(C_Y) 1411 LD (HBL),A 


1343 PUSH AF 1412 INC HL 
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1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 


IN_LI 


INLI 


F_INLI 
FIN_SP 


PON_SP 


LI_DE 


FIN_DE 


SI_DE 


DJNZ 
RET 
LD 
LD 
LD 
INC 
cP 
JR 
DJNZ 
JR 
RET 
LD 
PUSH 
XOR 


PUSH 
INC 


XOR 


DEC 


POP 


JR 


1481 LI_IZ LD 


PON 


HL, 51320 
B,64 

A, (HL) 

HL 

32 
NZ,F_INLI 
INLI 
FIN_SP 


A, (CX) 
AF 

A 

(CX),4 
HL_COR 
DE, 51384 
DE, HL 

A 

HL, DE 
B,H 

C,L 

DE, 51383 
HL, 51319 


B,64 
A, 32 
(DE>,A 
DE 
PON_SP 
AF 
(CX),A 
SCREEN 
BEEP 
A, (CX) 
D,A 

A, (CY) 
E,A 

DE 

A 
(CY),A 


Z,SI_DE 
DE 

A,D 
(CX),A 
A, E 
(CY),A 
BEEP 
HL 

DE 

HL 

BC, 63 


A, 32 
(DE),A 
A, (CY) 
A 
(CY),A 
LOP_ 
CL_LIN 
P_E_C 
FIN_DE 
A, (CX) 


1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 

1542 
1543 
1544 
1545 

1546 

1547 

1548 

1549 

1550 


FIN_IZ 


SI_IZ 


EXT_M 


N_EXT 


F_EXT 


UNO 


DOS 


CU_PR 


CU_FI 


PUSH 
XOR 
LD 
CALL 


RST 


RST 


RST 


RST 


RST 


XOR 


PUSH 
PUSH 


AF 

A 
(CX),A 
HL_COR 
A, (HL) 
32 
Z,S1_12 
AF 
(CX),A 
BEEP 
HL 

DE 

HL 

BC, 63 


A, 32 
(DE),A 
LOP_ 
CL_LIN 
P_L_C 
FIN_1Z 
A, (23617) 
A 
Z,N_EXT 
A 
(23617),A 
UNO 

A, 22 

16 

A,1 

16 

A, 22 

16 

A,78 

16 

A, 79 
F_EXT 
A,1 
(23617),A 
UNO 

A, 22 

16 

A,l1 

16 

A, 22 

16 

A,83 

16 

A,73 

16 

DOS 
BEEP 
A,1 
5633 
OVER_O 


1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 


DE_LI 


L_255 


SCREEN 


P_L 


XOR 


PUSH 


PUSH 


PUSH 


HL 

DE, 35000 
A 

HL, DE 
DE, 16384 
DE, HL 

A 

HL, DE 
B,H 

C,L 

HL 

DE 

A,B 

C 
Z,L_255 


HL, 35000 
DE, 16320 
HL, DE 

HL 


A, (C_Y) 


PUSH AF 


SUB 


INC 
PUSH 


1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
C1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 


POP 


LOP 


LOP_0 


LOP_1 


MAYOR 


MAS8 


SCR_D 


SCR 


SCR_O 


DJNZ P_L 


POP AF 

LD (C_Y),A 
POP DE 

LD  A,D 

LD (CX),A 
LD  A,E 

LD (CY),A 
RET 

LD  A,(C_Y) 
CP 16 

JR  NC,MAYOR 
RA - 


JR  NC,MAS8 
LD  HL,++4000 
AND A 

RET Z 

ID BA 

LD  DE,+20 
ADD HL,DE 
DJNZ LOP_1 
RET 

LD  HL,*5000 
SUB 16 

JR  LOP_0 

LD  HL,+4800 
SUB 8 

JR  LOP_0 

LD  B,J5 

LD — HL,+*579F 
LD —DE,*+57BF 
CALL SCR 
LD%B,1 

LD HL, +4FFF 
LD — DE, $571F 
CALL SCR 

ED. D,.7 

LD HL, +*$4FDF 
LD —— DE,*4FFF 
CALL SCR 
ED-58,3 

LD — HL,+47FF 
LD —— DE, *$4F1F 
CALL SCR 

LD" B,7 

LD  HL,+*+47DF 
LD — DE, +$47FF 
CALL SCR 

LD  HL,+4000 
CALL CL_LIN 
CALL P_L_C 


PUSH BC 
LD B,J8 
PUSH HL 
PUSH DE 
PUSH BC 
PUSH HL 
PUSH DE 
LD  BC,*+20 


EX  DE,BL 
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1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 


1715 


1716 
1717 
1718 
1719 
1720 
1721 
EZ 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 


SCR_U 


PLbo6 


X64 


LINEA 


PRT_L 


IMPAR 


MASAU 


DE, +20 
A 

HL, DE 
DE, HL 
HL 

DE 

DE, 120 
A 

HL, DE 
DE 

BC 
SCR 


57 

HL, 4020 
DE, 4000 
SCR” 

B,1 

HL, 4800 
DE, $+40E0 
SCR” 

B,7 

HL, 114820 
DE, +4800 
SCR” 

B,1 

HL, $5000 
DE, $48EO 
SCR” 

B,5 

HL, 5020 
DE, +5000 
SCR” 

HL, +5040 
CL_LIN 
PB L_C 


HL, 35000 
A, (CY) 
A 

Z, LINEA 
B,A 

DE, 64 
HL, DE 
X64 
B,64 

A, (CX) 
AF 

A 
(CX),A 
BC 

HL 

AT 

HL 

A, (HL) 


(LAST_K),A 


A, (CX) 
A 

HL 

C, IMPAR 
IZQ 
MASAU 


A, (LAST_K) 


16 


1758 

1759 

1760 

1761 

1762 

1763 CL_LIN 
1764 CL_1 
1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 
C1774 

1775 

1776 

1777 SCR” 
1778 

1779 

1780 

1781 SCR”_0 
1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 COMP_1 
1806 

1807 

1808 COMP_F 
1809 

1810 

1811 

1812 

1813 AT 
1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 OVER_1 
1822 

1823 

1824 

1825 

1826 OVER_O 


RET 
LD 


1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 


BEEP 


ENTER 


DELETE 


N_COL 


IF_SCR 


CL_CHR 


B_DER 


COMP 


CP_L 


RST 
XOR 
RST 
RET 


CALL 


RET 


CALL 


DEC 


RET 


DEC 


AND 
PUSH 


POP 
RET 
DEC 


RET 


PUSH 


CALL 
POP 


IZQ 


BEEP 

A, (23658) 
3,4 
NZ,NO_CP 
4,8 
(23658),A 
UNO 

A, 22 

16 

A,1 

16 

A,8 

16 


1896 
1897 
1898 
1899 
1900 
1901 
1902 


C1903 


1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 


NO_CP 


P_NCOL 


REST_ 


REST_1 


x10 


P_DIG 


*xD+ 
CUR_L 


(23658),A 
UNO 

A, 22 

16 

A, 1 

16 

A,8 

16 

4,78 

16 

A, 79 

16 

A, 32 

16 

DOS 

A, (COORDS) 
B,O 

B 

100 

NC, REST_ 
B 

A,B 

A 

Z,RES_1 
AF 

A, (COORDS) 
100 
REST_1 
(COORDS),A 
AF 

A, 48 

16 

A, (COORDS) 
B,O0 

B 

10 

NC, REST 

B 

A,B 

BC 

A, 48 

16 

BC 

A 

A,10 

x10 

B,A 

A, (COORDS) 
B 

A, 48 

16 

DOS 
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1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
C2032 
2033 


N_LEFT 


CUR_R 


LD 
LD 
JP 
CALL 
LD 
CP 
JR 
INC 


" LD 


N_RIGH 


CUR_D 


CUR_U 


CURSOR 


CU_RI 


MARG_D 


SET_MD 


MARG_1 


SET_MI 


JP 
XOR 
LD 
CALL 
CALL 
LD ' 
INC 
LD 
LD 
CP 
PUSH 
CALL 
POP 
RET 
INC 
LD 


RST 
RST 
RST 


CALL 
RET 


A,63 
(CX),A 
IF_SCR 
COMP_1 
A, (CX) 
63 
Z,N_RIGH 
A 
(CX),A 
BEEP 

A 
(CX),A 
COMP_F 
BEEP 


AF 


A, 133 
16 


BEEP 

A, (CX) 

HL, MI 

(HL) 

Cc 

(MD), A 
(COORDS),A 
A,1 

5633 

A, 22 

16 

A,l 

16 

A, 17 

16 

A, (MD) 
(COORDS),A 
P_NCOL 


2034 cd 
2035 RST 16 

2036 RN 

2037 RST 16 

2038 LD A,(MI) 
2039 LD (COORDS),A 
2040 JP P_NCOL 
2041 CINTA CALL S” 

2042 LD  HL,CASETE 
2043 CALL RS_INS 
2044 OTR CALL KEY 

2045 cp 76 

2046 JR  Z,LOAD 
2047 CP 108 

2048 JR  Z,LOAD 
2049 cp 83 

2050 JP Z,SAVE 
2051 cp. 115 

2052 JP Z,SAVE 
2053 JR  OTR 

2054 PONES DEFB 22,21,1 
2055 DEFM PON EL CASSET 
E EN MARCHA. ” 

2056 DEFB 0,0 

2057 PONE  DEFB 22,20,1 
2058 DEFM PON RECORD EN 
EL CASSETE. * 

2059 DEFB 13 

2060 DEFM *PULSA UNA TECLA. ” 
2061 DEFB 0,0 

2062 CASETE DEFB 22,8,10 
2063 DEFM *S= SALVAR. ” 
2064 DEFB 22,12,10 
2065 DEFM *L= CARGAR. ” 
2066 DEFB 0,0 

2067 LOAD CALL 3435 

2068 LD  HL,PONES 
2069 CALL RS_INS 
2070 LD  1X,35000 
2071 LD DE, 16384 
2072 LD  A,128 

2073 scF 

2074 CALL 1366 

2075 JR  NC,LOAD 
2078 > ON de 

2077 SAVE CALL 3435 

2078 LD  HL,PONE 
2079 CALL RS_INS 
2080 KEY_S CALL KEY 

2081 AND A 

2082 JR  Z,KEY_S 
2083 LD  IX,35000 
2084 LD  DE,16384 
2085 LD  A,128 

2086 scF 

2087 CALL 1218 

2088 o, Me de 

2089 S” LD  DE,55000 
2090 LD  HL,16384 
2091 LD  BC,6912 
2092 LDIR 

2093 CALL 3435 

2094 CALL DOS 

2095 LD  A,60 

2096 LD  (23607),A 
2097 RET 

2098 INSTR CALL S” 

2099 LD HL, INTR 
2100 CALL RS_INS 
2101 END__ CALL KEY 


C2148 DEFM *-2=LINEA A LA 


2102 AND A : 
2103 JR Z,END_ 2149 DEF, 13 
2104 JE: 5%? 2150 DEFM ”-3=INSERTA LI 
2105 RS_INS LD  A,(HL) NEA. ” 
2106 AND A 2151 DEFB 13 
2107 JR  Z,END_I 2152 DEFM ”-4=INSERTA CA 
2108 RST RST 16 RACTER. ” 
2109 INC HL 2153 DEFB 13 
2110 JR  RS_INS 2154 DEFM *-5=CENTRA LIN 
2111 END_I INC HL EA. ? 
2112 LD  A,(HL) 2155 DEFB 13 
2113 DEC HL 2156 DEFM *-6=CURSOR AL 
2114 AND A FINAL. ” 
2115 LD A,O 2157 DEFB 13 
2116 JR NZ, RST 2158 DEFM *-7=CURSOR AL 
2117 RET PRINCIPIO. * 
2118 S”7 LD  A,128 2159 DEFB 13 
2119 LD (23607),A 2190 da PO, CARA 
2120 L BL, 55000 ; 
2121 io bete lr E e 
2122 LD BC,6912 . ds 
2123 LDIR MPRESORA. 
2163 DEFB 13 

2124 JP DOS 2164 DEFM >-A,S,D,F,G=VO 
2125 INTR  DEFB 20,1 CALES ACENTUADAS. ” 
2126 DEFM *”MODO NORMAL: ” 2165 DEFB 13,13,18,1 
2127 DEFB 20,0, 13 2166 DEFM *PULSA UNA TEC 
2128 DEFM *-CAPS SHIFT+1 LA PARA VOLVER. * 

= INSTRUCCIONES. ” 2167 DEFB 18,0 
2129 DEFB 13 2168 DEFM * ? 
2130 DEFM *”-CAPS SHIFT+2 2169 DEFB 0,0 

=MAYUSC. /MINUSC. ” 2170 LOWER DEFM *COLUMNA ” 
2131 DEFB 13. 

- ñ 2171 DEFM *LINEA ? 

2132 DEFM ”- +3 

-MARGEN DERECHO. ” 2172 DEFM *CAPS L. ?” 
2133 DEFB 13 2173 DEFM *MARG. ” 
2134 DEFM ?- A es 2174 DEFM * IZQ. ” 

=MARGEN IZQUIER. ” 2175 DEFM ”MARG. ” 
2135 DEFB 13 2176 DEFM *DER. ?” 
2136 DEFM ?- y +9 2177 DEFM *M.EXTEND. ? 

=SAVE/LOAD” 2178 DEFM *EDIT=INST. ?” 
2137 DEFB 13 2179 CX DEFB O 
2138 DEFM ”*-S. SHIFT+3=N” 2180 CY DEFB O 
2139 DEFB 8 2181 MI DEFB O 
2140 DEFB 126 2182 MD DEFB 63 
2141 DEFB 13,13,20, 1 2183 D_SET DEFW 32768 
2142 DEFM *MODO EXTENDID 2184 LAST_K DEFB O 

0:? DEFB 
2143 DEFB 20,0,13 
2144 DEFM *-O=BORRA LINE 

A EN CURSO. * ds 
2145 DEFB 13 
2146 DEFM *-1=LINEA A LA 

IZQUIERDA. ” 
2147 DEFB 13 


Para terminar, aparece el listado fuen- para aquellos que deseen ver su funclo- 
te del programa en código máquina namiento. 


7000 DATA 62,128,50,55,92,62,8,50, 106, 92,205, 230, 122,205, 12, 1479 

7002 DATA 123,62,1,50,65,92,205, 17,119,62,1,205,1,22,205, 1230 

7004 DATA 113,121,33,13,126,58, 79,126,245, 175,50,79,126,205,229,1778 

7006 DATA 120, 241,50,79,126,205,83,119,58,80,126,50,78, 126,205, 1746 

7008 DATA 233,121,205, 140, 115,6,65,197,6,255,54,32,35,16,251,1731 

7010 DATA 193,16, 245, 24, 43, 33, 184, 136,58, 78,126,22,0,95,213, 1466 

7012 DATA 58,79,126,167,40,7,17,64,0,71,25,16,253,209,25,1157 

7014 DATA 201,205, 226,115, 167,245, 196,238, 115,205, 195, 122,205, 195, 122,2752 
7016 DATA 241, 40, 239,58,78,126,50,85,126,205,75,119,62,22,215, 1741 

7018 DATA 62,1,215,175,215,205, 44, 122,58,79,126,50,85, 126,205, 1768 


a PROGRAMAS 


7020 DATA 75,119,62,22,215,62,1,215,62, 4,215,205, 44, 122, 24, 1447 

7022 DATA 196,175,50,8,92,255,58,8,92,50,84, 126,201, 254, 128, 1777 

7024 DATA 208,254, 13,202,135, 121,254,12,202, 145,121, 254, 24, 202, 145, 2292 
7026 DATA 121,254,6, 202,233, 121,254, 26, 202, 233, 121,254,15,202,33,2277 
7028 DATA 123,254, 1,202,33,123,254,8,202,107,122,254,9,202, 132, 2026 
7030 DATA 122,254,10,202, 153, 122, 254, 11,202, 182,122,254,7,202, 249, 2346 
7032 DATA 123,254,25, 202, 249, 123, 254,5, 202, 213, 122,254, 30, 200, 254, 2510 
7034 DATA 29,200, 254, 31, 200, 254, 28, 202, 213, 122, 254, 4, 202, 254, 122, 2369 
7036 DATA 254,27,202, 254, 122,254, 14, 202,17,119,254, 16,202, 135,119, 2191 
7038 DATA 254,17,202, 228, 118,254, 18,202, 161, 118, 254, 22, 202, 111, 119,2280 
7040 DATA 254,23, 202,91, 119,254,19,202, 99,118,254, 20, 202, 157, 117, 2131 
7042 DATA 254, 21,202, 231,117,254, 2,202, 124, 117, 254,3,202, 29,117, 2129 
7044 DATA 205, 126, 121,205, 113, 121;205,99,121,58,84,126, 245,205, 200, 2234 
7046 DATA, 121, 241,50, 84, 126, 245, 205, 140, 115, 241, 119,205, 99, 121,58,2170 
7048 DATA 78,126,203,63,56,5,212,181, 116, 24,58,58,84,126,215, 1605 

7050 DATA 24,52, 42,82,126,22,0,58,84,126,95,6,8,25,16,766 

7052 DATA 253,84,93,6,8,126,203,39,203,39,203,39,203,39,119, 1657 

7054 DATA 35,16, 243,58,84,126,215,235,6,8,126, 203, 63,203,863, 1684 

7056 DATA 203,63,203,63,119,35,16,243,201,205,85,121,58,78,126, 1819 
7058 DATA 60,33,81,126,190, 56, 2, 32,8,254,64, 40, 4,50,78,1078 

7060 DATA 126,201,58,80, 126,50, 78, 126,58,79,126,60, 50, 79,126, 1423 

7062 DATA 58,86,126, 254, 21, 245, 204, 148, 120, 241, 200,60, 50,86,126, 2025 
7064 DATA 201,205, 226, 123,62,128,50,55,92,58,78,126,87,58,79,1628 

7066 DATA 126,95, 213,58,86,126,245,175,50,86, 126,50, 78, 126,50, 1690 
7068 DATA 79,126,6,11,197,205, 199, 119,245, 197,213,229,205, 172,14, 2217 
7070 DATA 225,209, 193, 241,58,79,126,198,22,50,79,126, 193,16, 230, 2045 
7072 DATA 62,8,50,86,126,205, 199, 119,6,112,33,0,72,243,205, 1526 

7074 DATA 178,14,205, 28, 124, 241,50,86, 126, 209, 122,50, 78,126,123, 1760 
7076 DATA 50,79,126,195,126, 121,205, 140, 115, 229, 209,35, 58, 78,126, 1892 
7078 DATA 71,62,64, 144,6,0,79,237,176,62,32,18,205, 3,120, 1279 

7080 DATA 205,27,121,205,213,120, 195, 126,121,586,79,126,245,50,79,1970 
7082 DATA 126,58,78,126,245,62,64,50,78,126,205, 140, 115, 241,50, 1764 
7084 DATA 78,126,241,50,79, 126, 43, 126, 254, 32,192,235, 213,225, 43, 2063 
7086 DATA 58,78,126,71,62,63,144,79,6,0,237, 184,205, 126, 121,.1560 

7088 DATA 205, 140, 115, 54,32,58,78,126,87,58,79, 126,95, 213,58, 1524 
7090 DATA 86,126,245,6,1,195,218,119,58,78,126,87,58,79, 126, 1608 

7092 DATA 95,213,58,86,126,245,175,50,78,126,205, 140, 115,6,0,1718 
7094 DATA 126,35, 4, 254,32, 40, 249, 197,62,63,50, 78, 126,205, 140, 1661 

7096 DATA 115, 14,0, 126, 43, 12,254, 32, 40, 249, 209,66,5,13,120, 1298 

7098 DATA 129,87,62,64,146,245,175,50,78,126,197,205, 140,115, 193, 2012 
7100 DATA 22,0,88,25,17,54,91,241,197,6,0,79,197,237,176,1430 

7102 DATA 209, 193,213, 120, 129, 203,63,245,205, 140, 115, 241,71,245,205, 2597 
7104 DATA 92,118,235,33,54,91, 241, 193,237,176,71,235,205,92,118,2191 
7106 DATA 6,1,195,218,119,62,32,119,35,16,250,201, 33,120,200, 1607 

7108 DATA 6,64,126,35, 254, 32,32, 4,16,248,24,1,201,58,78,1179 

7110 DATA 126,245,175,50,78,126,205,140,115,17,184,200,235, 167,237, 2300 
7112 DATA 82,68,77,17,183,200,33,119,200,237,184,6,64,62,32,1564 

7114 DATA 18,19,16,252,241,50, 78,126,205, 199, 119,195, 126, 121,58, 1823 
7116 DATA 78,126,87,58,79,126,95,213,60,50,79,126,175,50, 78, 1480 

7118 DATA 126,205,140, 115, 43, 126, 254,32, 40, 12,209, 122,50, 78,126, 1678 
7120 DATA 123,50,79,126,195,126,121,229,209,43,1,63,0,237, 184, 1786 
7122 DATA 62,32,18,58,79,126,61,50,79,126,205,3,120,205,27,1251 

7124 DATA 121,205, 213, 120,24,215,58,78,126,245,175,50,78,126,205, 2039 
7126 DATA 140,115, 126, 254,32, 40,7,241,50,78,126,195,126,121,229, 1880 
7128 DATA 209,35,1,63,0,237,176,62,32,18,205,3,120,205,27, 1393 

7130 DATA 121,205, 213, 120, 24, 227,58,65,92,167,40,23,175,50,65, 1645 
7132 DATA 92,205,75,119,62,22,215,62,1,215,62,22,215,62,78, 1507 

7134 DATA 215,62,79,24,22,62,1,50,65,92,205,75,119,62,22,1155 

7136 DATA 215,62,1,215,62,22,215,62,83,215,62,73,215,205,83,1790 

7138 DATA 119,195, 126, 121,62,1,205,1,22,195,120,121,62,2,205, 1557 

7140 DATA 1,22,195,113,121,6,22,175,50,79,126,50,78,126,50, 1214 

7142 DATA 86,126,17,0,0,213,245, 195,218, 119,6,22,62,234,50, 1593 

7144 DATA 79,126,30,255,175,87,50,86,126,50,78,126,213,62,21,1564 

7146 DATA 245,195, 218,119,205, 140, 115,22,0,58,78,126,95,167,237,2020 
7148 DATA 82,229,17,64,0,25,229,17,184,136,167,237,82,17,0, 1486 

7150 DATA 64,235,167,237,82,68,77,225,209,120,177,40,2,237,176,2116 
7152 DATA 33,184,136,17,192,63,25,229,209,19,1,63,0,54,32,1257 

7154 DATA 237,176,205, 199,119, 195,126, 121,58,78,126,87,58,79,126, 1990 


7156 
7158 
7160 
7162 
7164 
7166 
7168 
7170 
FATZ 
7174 
7176 
7178 
7180 
7182 
7184 
7186 
7188 
7190 
7192 
7194 
7196 
7198 
7200 
7202 


7204 
7206 


7208 
7210 
7212 
7214 
7216 
7218 
7220 
7222 
7224 

7226 
7228 
7230 
7232 
7234 
7236 
7238 
7240 
7242 
7244 
7246 
7248 
7250 
7252 
7254 
7256 
7258 
7260 
7262 
7264 
7286 
7268 
7270 
7272 
7274 
7276 
7278 
7280 
7282 
7284 
7286 
7288 
7290 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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DATA 
DATA 
DATA 
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DATA 
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DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


95,213,58,86,126,245,71,62,21, 144,71, 4,197,205,3,1601 
120,205,27,121,205, 213, 120,58,79,126,60,50,79,126,58, 1647 
86,126,60,50,86,126, 193,16, 229,241, 50,86, 126,209, 122, 1806 
50,78,128,123,50,79,126,201,58,86,126, 254,16, 48,17, 1438 
254,8, 48,20,33,0,64,167,200,71,17,32,0,25,16,955 
253,201,33,0,80, 214, 16, 24, 239,33,0,72,214,8,24,1411 
232,6,5,33,159,87,17,191,87,205,106, 120, 6, 1,33, 1288 
255,79,17,31,87,205, 106, 120,6,7,33,223,79,17,255, 1520 
79,205,106, 120,6,1,33,255,71,17,31,79,205,106, 120, 1434 
6,7,33,223,71,17,255,71,205, 106, 120,33, 0,64,205, 1416 
27,121,205,213,120, 201, 197,6,8,229,213,197, 229,213, 1,2180 
32,0,237,184,209,225,37,21,193,16, 241,209, 235, 17,32, 1888 
0,167,237,82,235,225,213,17,32,0,167,237,82,209, 193, 2096 
16,215,201,6,7,33,32,64,17,0,64,205, 47, 121,6, 1034 
1,33,0,72,17,224,64, 205, 47,121,6,7,33,32,72,934 
17,0,72,205,47,121,6,1,33,0,80,17,224,72,205, 1100 
47,121,6,5,33,32,80,17,0,80,205, 47,121,33,160,987 
80,205,27,121,205, 213, 120,201, 33, 184, 136,58,79,126,167, 1955 
40,7,71,17,64,0,25,16,253,6,64,58,78, 126,245, 1070 
175,50,78,126,197,229,205,99, 121,225, 126,50,84,:126,58, 1949 
78,126,203,63,229,56,5,205,181,116, 24, 4,58,84,126,1558 
215,225,58,78,126,60,50, 78, 126, 193,35,16,217,241,50, 1768 
78,126,201,6,8,197,1,31,0,229, 229,209, 19, 54,0, 1388 
237,176,225,36,193,16, 239,201, 197,6,8,229,213, 197,229, 2402 
213,1,32,0,237,176,209,225,36,20, 193, 16,241,209, 235, 2043 
17,32,0,25,235,225,213,17,32,0,25,209, 193,16, 219, 1458 
201,58,78,126,254,63,192,58,79,126,254,255, 192, 241,201, 2378 
62,22,215,58,86, 126,215,58,78,126,203,63,215,201,62,1790 
21,215,62,1,215,201,62,21,215,175,215,201,17, 123,0, 1744 
33,132,1,195,181,3,205, 91,121,205, 0,117,205, 126,121, 1736 
201,205, 99,121,205, 200, 121,205, 140, 115, 54,32,205, 126, 121,2150 
205,221,121,58,78,126,167,40,5,61,50,78,126,201,62, 1599 
63,50,78,126,58,79,126,61,50, 79, 126,58,86, 126,167, 1333 

245, 204, 41, 120, 241, 200, 61,50,86,126, 201, 58,78, 126,203, 2040 
63,245,205, 140, 115,241, 126,56,6,50,84,126,195,181,116, 1949 
215,201,58,79,126,167,192,58, 78,126,167, 192,241,201, 205, 2306 
126, 121,58,106,92,203,95,32,29,62,8,50,106,92,205, 1385 
75,119,62,22,215,62,1,215,62,8,215,62,83,215,62,1478 
73,215,62,32,215,195,83,119,175,50,106,92,205,75,119, 1816 
62,22,215,62,1,215,62,8,215,62,78,215,62,79,215,1573 
62,32,215,195,83,119,58,85,126,6,0, 4,214,100, 48, 1347 
251,5,120,167, 40, 12, 245, 58,85, 126, 214,100, 16,252,50,1741 
85,126, 241,198, 48, 215,58,85,126,6,0, 4, 214,10, 48, 1464 
251,5,120,197,198,48,215,193,175, 198,10, 16,252, 71,58, 2007 
85, 126, 144, 198, 48,215, 195,83, 119,205, 126, 121, 205,221, 121, 2212 
58,78,126,167,40,5,61,50,78,126,201,62,63,50,78, 1243 
126,195,178,121,205,85,121,58,78, 126, 254,63, 40,7,60,1717 
50,78,126,195,126,121,175,50,78,126,205,91,121,205, 126, 1873 
121,58,79,126,60,50, 79, 126,58,86, 126,254, 21, 245, 204, 1693 
148, 120, 241, 200, 60, 50,86, 126,201,58,79,126, 167,202, 126, 1990 
121,205, 126, 121, 195, 178, 121,205, 99,121,58,78, 126,203, 63, 2020 
56, 4, 62,138,215, 201,62,133,215, 201,205, 126, 121,58, 78,1875 
126, 33,80,126,190,216,50,81,126,50,85,126,62,1,205,1557 
1,22,62,22,215,62,1,215,62,17,215,58,81, 126,50, 1209 
85,126,205, 44, 122,201, 205, 126, 121,58, 78, 126,33,81,126, 1737 
190,208, 50,80, 126,205, 75, 119,62,22,215,62,1,215,62, 1692 
12,215,58,80,126,50,85, 126,195, 44, 122,205, 226, 123,33,1700 
142,123,205,11, 124, 205,226, 115, 254,76, 40, 121,254, 108, 40, 2044 
117,254,83,202,196,123,254,115, 202, 196, 123, 24, 233,22,21,2165 
1,80,79,78,32,69,76,32,67,65,83,83,69,84,69,967 
32,69,78,32,77,65,82,67,72,65,46,0,0, 22,20, 727 
1,80,79,78,32,82,69,67,79,82,68,32,69,78,32,928 
69,76,32,67,65,83,83,69,84,69, 46, 13,80,85,76,997 
83,65,32,85,78,65,32,84,69,67,76,65,46,0, 0,847 
22,8,10,83,61,32,83,65,76,86,65,82,46,22,12,753 
10,76,61,32,67,65,82,71,65,82,46,0,0,205, 107, 969 
13,33,65,123,205,11,124,221,33,184,136,17,0,64,62,1291 
128,55,205,86, 5, 48, 232, 24,88,205,107,13,33,95,123, 1447 


20 PROGRAMAS 


7292 DATA 205,11,124,205,226,115,167,40,250,221,33,184,136,17,0,1934 
7294 DATA 64,62,128,55,205, 194, 4,24,58,17,216,214,33,0,64,1338 
7298 DATA 1,0,27,237,176,205,107,13,205,83,119,62,60,50,55, 1400 
7298 DATA 92,201,205,226,123,33,47,124,205,11,124,205,226,115,187,2104 
7300 DATA 40,250, 195,28,124,126,187,40,4,215,35,24,248,35,126,1657 
7302 DATA 43,167,62,0,32,244,201,62,128,50,55,92,33,216,214, 1599 
7304 DATA 17,0,64,1,0,27,237,176,195,83,119,20,1,77,79, 1096 
7306 DATA 68,79,32,78,79,82,77,65,76,58,20,0,13,45,67,839 
7308 DATA 65,80,83,32,83,72,73,70,84,43,49,61,73,78,83,1029 
7310 DATA 84,82,85,67,67,73,79,78,69,83,46,13,45,67,65, 1003 
7312 DATA 80,83,32,83,72,73,70,84,43,50,61,77,65,89,85,1047 
7314 DATA 83,67,46,47,77,73,78,85,83,67,46,13,45,32,32,874 
7316 DATA 32,32,34,32,32,32,32,32,43,51,61,77,65,82,71,708 
7318 DATA 69,78,32,68,69,82,69,67,72,79,46,13,45,32,32,853 
7320 DATA' 32,32,34,32,32,32,32,32,43,52,61,77,65,82,71,709 
7322 DATA 69,78,32,73,90,81,85,73,69,82,46,13,45,32,32,900 
7324 DATA 32,32,34,32,32,32,32,32,43,57,61,83,65,86,69,722 
7326 DATA 47,76,79,65,68,13,45,83,46,83,72,73,70,84, 43,947 
7328 DATA 51,61,78,8,126,13,13,20,1,77,79,68,79,32,69,775 
7330 DATA 88,84,69,78,68,73,68,79,58,20,0,13,45, 48, 61,852 
7332 DATA 66,79,82,82,65,32,786,73,78,69,65,32,69,78,32,978 
7334 DATA 67,85,82,83,79,46,13,45,49,61,76,73,78,69,65,971 
7336 DATA 32,65,32,76,65,32,73,90,81,85,73,69,82,68,65, 988 
7338 DATA 46,13,45,50,61,76,73,78,69,65,32,65,32,76,65,846 
7340 DATA 32,68,69,82,69,67,72,65,46,13,45,51,61,73,78,891 
7342 DATA 83,69,82,84,65,32,76,73,78,69,65,46,13,45,52,932 
7344 DATA 61,73,78,83,69,82,84,65,32,67,65,82,65,67,84, 1057 
7346 DATA 69,82,46,13,45,53,61,67,69,78,84,82,65,32,76,922 
7348 DATA 73,78,69,65,46,13,45,54,61,67,85,82,83,79,82,982 
7350 DATA 32,65,76,32,70,73,78,65,76,46,13,45,55,61,67,854 
7352 DATA 85,82,83,79,82,32,65,76,32,80,82,73,78,67,73,1069 
7354 DATA 80,73,79,46,13,45,56,61,66,79,82,82,65,32,67,926 
7356 DATA 65,82,65,67,84,69,82,46,13,45,57,61,80,65,83,964 
7358 DATA 65,32,80,79,82,32,73,77,80,82,69,83,79,82,65, 1060 
7360 DATA 46,13,45,65, 44,83, 44,68, 44,70, 44, 71,61,86,79,863 
7362 DATA 67,65,76,69,83,32,65,67,69,78,84,85,65,68,65, 1038 
7364 DATA 83,46,13,13,18,1,80,85,76,83,65,32,85,78,65,823 
7366 DATA 32,84,69,67,76,65,32,80,65,82,65,32,86,79,76,990 
7368 DATA 86,69,82,46,18,0,32,0,0,67,79,76,85,77,78,795 
7370 DATA 65,32,32,76,73,78,69,65,32,32,67,65,80,83,32,881 
7372 DATA 76,46,32,77,65,82,71,46,73,90,81,46,32,77,65,959 
7374 DATA 82,71,46,68,69,82,46,32,77,46,69,88,84,69,78, 1007 
7376 DATA 68, 46,32,69,68,73,84,61,73,78,83,84, 46,32, 0,897 
7378 DATA 0,0,63,0,128,0,0,0,67,46,47,77,73,78,85,664 

7380 DATA 83,83 

9000 DATA 15,1,1,1,1,1,1,15,36 

9002 DATA 15,15,15,15,0,0,0,0,60 

9004 DATA 240,240, 240,240,0,0,0,0,960 

9006 DATA 255,255,255,255,0,0,0,0, 1020 

9008 DATA 0,0,0,0,15,15,15,15,60 

9010 DATA 15,15,15,15,15,15,15,15,120 

9012 DATA 240,240,240,240,15,15,15,15, 1020 

9014 DATA 255,255,255,255,15,15,15,15, 1080 

9016 DATA 0,0,0,0,240, 240, 240, 240, 960 

9018 DATA 15,15,15,15,240, 240, 240, 240, 1020 

9020 DATA 240, 240, 240, 240, 240, 240, 240, 240, 1920 

9022 DATA 255,255, 255,255, 240, 240, 240, 240, 1980 

9024 DATA 0,0,0,0,255,255,255,255, 1020 

9026 DATA 15,15,15,15,255,255, 255,255, 1080 

9028 DATA 240,240,240,240,255,255, 255,255, 1980 

9030 DATA 255,255,255,255,255,255,255, 255, 2040 

9032 DATA 60,60, 80, 80,60,60, 60, 60, 480 

9034 DATA 255,255,0,0,0,0,255,255, 1020 

9038 DATA 126, 126,96,96,96,96, 126, 126,888 

9038 DATA 126,126,6,6,6,6,126, 126,528 

9040 DATA 71,121,144,71,201,45,50,1,704 

9042 DATA 243,205,137,248,56,11,205, 101, 1206 

9044 DATA 250,6,64,62,32,119,35,18,584 


9142 DATA 0,7,5,4,7,5,7,0,35 
9156 DATA 0,7,5,5,5,5,5,0,32 
9158 DATA 0,7,5,5,5,5,7,0,34 
9160 DATA O, 


9144 DATA 
9146 DATA 
9148 DATA 
9150 DATA 
9152 DATA 
9154 DATA 
9162 DATA O, 
9164 DATA O, 
9168 DATA O, 


205,220, 238, 1617 


131, 246,58, 1509 
9054 DATA 216,195, 102, 246, 58, 


9050 DATA 26,243,50,1,243,201, 
1,243,71,1132 


9056 DATA 58,29,243,61,144, 
2168,58,26,835 


205,220, 1189 
9058 DATA 243,79,120,145,201, 


-  243,201,1142 
9048 DATA 205,220, 238, 216, 195, 
9052 DATA 238,216,195,59,246, 


9048 DATA 252,58,88,249,50, 1, 


9174 DATA 0,5,7,7,7,7,2,0,35 


9172 DATA 0,5,5,5,5,5,2,0,27 
9176 DATA O, 


9168 DATA O, 
9170 DATA O, 
9178 DATA O, 


| 225,201, 32, 1435 
9064 DATA 0,0,0,0,0,0,0,0,0 


33,6,243, 1070 
9066 DATA O, 


9060 DATA 203,246, 205, 144,225, 
201,33,6,1263 


9062 DATA 243,203,182,205, 144, 


5 
5 
9180 DATA 0,7 
9182 DATA 0,7,4,4,4,4,7,0,30 


A 
,5,0,0, 
+, 05055, 


2 
5 
0 


9068 DATA O, 
9070 DATA 3, 


9184 DATA 1,2,0,8,2,2,7,0,20 
9186 DATA 0, 


9190 DATA 0, 


9188 DATA 2, 
9192 DAT 


9074 DATA 0, 4, 4,1,2,4,1,1,17 
9076 DATA 0,2,5,2,6, 


9072 DATA 0,2,7,4,7,1,7,2,30 
9078 DAT 


<<< 


9194 DAT 
9196 DAT 


<<< 


9080 DAT 
9082 DAT 


9202 DATA 0,0,2,5,6,4,3,0,.20 
9204 DATA 0,3,4,6,4,4,4,0,25 
9206 DATA 0,0,3,5,5,3,1,6,23 
9208 DATA 0,4,4,6,5,5,5,0,29 
9210 DATA 0,2,0,6,2,2,7,0,19 
9212 DAT 


9200 DATA 0,1,1,3,5,5,3,0,18 


9198 DATA 0,0,3,4, 


9094 DATA 0,1,1,2,2,4,4,0,14 


9092 DATA 0,0,0,0,0,6,6,0,12 
9096 DATA 0, 


9084 DATA 0,0,5,2,7,2,5,0,21 
9086 DATA 0,0,2,2,7,2,2,0,15 
9088 DATA 0,0,0,0,0,2,2,4,8 
9090 DATA 0,0,0,0,7,0,0,0,7 


,1 
,4 


0 
0 
9216 DATA 0, 4, 4, 4, 4, 4,3,0,23 


A 
A 


9214 DAT 


9098 DATA 0, 


9220 DATA 0,0,6,5,5,5,5,0,26 


9218 DATA 0,0,5,7,7,7,5,0,31 
9222 DATA 0,0,2,5, 


9104 DATA 0,1,3,5,5,7,1,0,22 


9102 DATA 0,6,1,6,1,1,6,0,21 
9106 DATA 0,7, 


9100 DATA O, 


,0,19 
,4,30 


2 
4 


9226 DATA 0,0,3,5,5,3,1,1,18 


0 
8, 


5 
5 


9108 DATA 0,2, 


9236 DATA 0,0,5,5,5,5,2,0, 22 


9230 DATA 0,0,3,4,2,1,6,0,16 
9238 DAT 


9228 DATA 0,0,3,4,4,4,4,0,19 
9232 DATA 0,2, 


9224 DATA 0,0,6,5, 
9234 DATA 0,0, 


9110 DATA 0,7,1,2,2,4,4,0,20 
9112 DATA 0,7,5,2,5,5,7,0,31 
9114 DATA 0,2,5,5,3,1,6,0,22 
9116 DATA 0,0,0,2,0,0,2,0,4 

9118 DATA 0,0,2,0,0,2,2,4,10 
9120 DATA 0,0,1,2,4,2,1,0,10 
9122 DATA 0,0,0,7,0,7,0,0,14 


<< 


9240 DAT 


9124 DATA 0,0,4,2,1,2,4,0,13 


9126 DATA 0,2,5,1,2,0,2,0,12 


10) + 

SNS 
oe 
”n. > q 
na 
1D NI 
9” 
19 Na 
codo 
00m 
XI << 
REE 
Xx<< 
ananara 
NY «0 
Y Y y 
NA a 
DOOo 


9128 DATA 0,2,0,2,2,2,2,0,10 


9248 DATA 1,0,2,5,6,4,3,0,21 
9250 DATA 2,0,5,5,5,5,7,0,29 
9252 DATA 1,0,6,1,7,5,7,0, 27 
9254 .DATA 7,0,7,5,5,5,5,0,34 
9256 DATA 0,0 


9130 DATA 0,7,5,5,7,5,5,0,34 
9132 DATA 0,7,5,6,5,5,7,0,35 
9134 DATA 0,7,5,4,4,5,7,0,32 
9136 DATA 0,6,5,5,5,5,6,0,32 
9138 DATA 0,7, 4,6, 4,4,7,0,32 
9140 DATA 0,7,4,7,4,4,4,0,30 


(uy Sistemas 
E y Subsistemas 


ADA una de las eta- 
pas de desarrollo de 
la informatización se 
aplica a un campo 
de estudio específi- 
co, como hemos co- 
mentado (la empresa 
para el «esquema di- 
rector», un dominio para el «estudio de 
viabilidad», una aplicación para el «estu- 
dio detallado»). La malla de análisis ele- 
gida en cada caso permite ir desde la vi- 
sión global a los detalles de un modo 
progresivo y sin perder el punto de vista 
general, de modo que aseguremos la 
concepción y diseño de soluciones co- 
herentes, de futuro e integradas. 

Es importante tener claramente esta- 
blecido el conjunto de herramientas 
conceptuales que forman esta retícula 
de análisis progresivo, para la eficacia 
de las soluciones propuestas. Hemos de 
considerar un conjunto de sistemas y 
subsistemas, en contraposición a los Ór- 
ganos físicos de la Organización [servi- 
cios, aplicaciones, medios informáticos, 
etc.). 

En un primer nivel se consideran tres- 
grandes «sistemas» en la estructura ope- 
rativa (del mismo modo que se habla de 
«sistema nervioso», «sistema locomotor», 
etcétera, en el cuerpo humano; «sistema 
de frenado» o «sistema de alimentación», 
etcétera, en un automóvil): los tres siste- 
mas ya aludidos son el «sistema de ges- 
tión» (donde se toman las decisiones so- 
bre el desarrollo de las tareas de la em- 
presa), «sistema de información» (que fa- 
cilita datos al sistema de gestión e incor- 
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pora los canales de comunicación de la 
organización) y «sistema operacional» 
(que realiza las tareas cotidianas del fun- 
cionamiento de la empresa u organiza- 
ción). Sin embargo, hay que completar 
esta estructura del análisis en profundi- 
dad, mediante la definición de tres no- 
ciones adicionales: procedimiento, pro- 
ceso y dominio. 


— Un procedimiento es un conjunto de 
tareas que abordan una actividad con- 
creta. El procedimiento se apoya sobre 
dos posiciones estables (llamadas «situa- 
ciones naturales», que no dependen de 
las soluciones existentes o por definir. Por 
ejemplo, la «legada de una mercancía 
al almacén» (posición de «disparo» de la 
actividad y, por tanto, del procedimien- 
to) provoca la apertura de los paquetes, 
comprobación del envío, comparación 
con los pedidos que en su día se hicie- 
ron, control de calidad, etc., hasta la 
vuelta al estado normal de reposo que se 
produce cuando la mercancia queda al- 
macenada o es devuelta al proveedor. 
Como se ve, pueden participar varios ór- 
ganos, personas, lugares físicos, etc., en 
el procedimiento: lo importante es ase- 
gurar la coherencia vertical entre los dos 
«puntos de anclaje» invariantes (un «su- 
ceso natural» y el «resultado natural»). 


— Con el término proceso se designa 
un conjunto de procedimientos de la mis- 
ma naturaleza. Por tanto, el proceso se 
encuentra articulado (como hemos co- 
mentado para el procedimiento) por dos 
«estados» estables «naturales» de la acti- 
vidad de la organización y de su «siste- 
ma de información». La diferencia es que 
los límites del segmento de actividad 
que se examina no están marcados por 
dos sucesos, sino por toda una cadena 
de sucesos que se consideran relaciona- 


dos en sentido horizontal: ahora los pun- 
tos de «anclaje» del proceso no vienen 
indicados por datos concretos, sino por 
«Sucesos» designados de un modo mu- 
cho más genérico. (Véase el esquema 
adjunto.) 


— Un dominio es un conjunto de pro- 
cesos que, examinados desde un punto 
de vista más general, forman una unidad 
por referirse a un área coherente de ac- 
tividad. La definición de esta «especie 
de coherencia» del dominio se basa en 
tres criterios: 


a) la homogeneidad de las finalida- 
des de gestión de los procesos compo- 
nentes. Esto aporta una gran dependen- 
cia cronológica entre dichos procesos. 


b) La homogeneidad de la estructura 
de gestión de los procesos componentes 
del dominio. En efecto, la velocidad de 
convergencia de las ideas para conce- 
bir soluciones futuras, está supeditada en 
gran manera al número de personas de 
cuyas decisiones depende la definición 
de los objetivos, las orientaciones de la 


o 


Procedimiento: 


Procedimiento: 


Procedimiento: 


_—_—_—_ ip |boletín de 
pedidos 


datos dorción. 


ción stock. 


Proceso: emisión 
de pedidos 


Llegada de 
la factura 


Procedimiento 
Procedimiento 
Procedimiento 


Detección de 
necesidades en el 
organismo 
peticionario 


a, 


Proceso: control tacturas 


[4 Dominio del aprovisionamiento de la empresa. 


Procedimiento: 
embalajes y 
cotejo con 
albarán 


Proceso: recepción de mercancias 


Llegada de 
la letra 


Procedimiento 
Procedimiento 
Procedimiento 


actividad y los sistemas de arbitraje que 
haya que establecer. 


c) Coherencia de los elementos mani- 
pulados en el sistema de información 
subyacente. Si la responsabilidad de 
puesta al día de una entidad del sistema 
de información está compartida entre 
varios dominios, es dudoso que se man- 
tenga en el tiempo su integridad. 


Respecto de la estructura de análisis 
definida al comienzo (y analizada ya an- 
teriormente), hemos de decir que los do- 
minios «surgen» en el establecimiento del 
«esquema director». En efecto, del análi- 
sis global de la organización surgen es- 
tos grandes dominios de aplicación e, in- 
cluso, los procesos relevantes de los do- 
minios críticos. El estudio y definición de 
estos dominios y sus límites (así como de 
los procesos relevantes en ellos inclui- 
dos) aporta una visión básica imprescin- 
dible para el establecimiento de los «es- 
cenarios» globales de evolución de las 
actividades. 


Procedimiento 
devolución o 


stockage de 
la mercancía 


con pedidos 
pendientes 


a, ar mc 


Proceso: pagos 


Otras 
instrucciones 
de transferencia 


UESTO que en el len- 
guaje PASCAL la ins- 
trucción de transfe- 
rencia debe utilizarse 
sólo excepcional- 
mente, no existen 
otras variantes de 
este tipo de instruc- 
ciones. Sin embargo, en el lenguaje BA- 
SIC, donde las instrucciones de transfe- 
rencia son muy frecuentes, existe otro 
tipo de éstas, bastante útil, que vamos a 
ver a continuación y que reciben el nom- 
bre de «instrucciones de transferencia 
calculada». Estas instrucciones tienen la 
siguiente forma: 


ON expresión GOTO lista de etiquetas. 


donde ON es la palabra inglesa que sig- 
nifica «sobre», GOTO significa, como 
siempre, «ir a», «expresión» es una expre- 
sión BASIC cualquiera de resultado ente- 
ro y «lista de etiquetas» es un conjunto de 
etiquetas separadas por comas. Veamos 
un ejemplo: 


10 INPUT X 
20 ON X GOTO 1000,2000,3000, 4000 


El programa anterior lee del teclado el 
valor de X. A continuación, la línea 20 
transfiere el control a la línea 1000 si el 
valor de X era igual a 1; a la línea 2000, 
si X es igual a 2; a la línea 3000, si es igual 
a 3; y a la línea 4000 si es igual a 4. En 
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cualquier otro caso (para cualquier otro 
valor entero de X, incluso negativo) no se 
realizará ninguna transferencia y la eje- 
cución continuará en la instrucción si- 
guiente a la de etiqueta 20. 

El organigrama del programa anterior 
es el siguiente: 


1000 2000 3000 4000 30 


Figura 1 


En lugar de X podríamos haber utiliza- 
do otra expresion, como en el caso si- 
guiente: 


10 INPUT X 
20 ON X-2 GOTO 1000,2000, 3000, 4000 


cuyo organigrama es: 


4000 2000 3000 4000 30 


[A Figura 2 


(MW Instrucciones de transferencia 
en el lenguaje APL 


En el lenguaje APL, la instrucción de 
transferencia es la única que permite va- 
riar la marcha de la ejecución de los pro- 
gramas, haciéndola no secuencial, pues 
no hay instrucciones explícitas de bucle. 
Se recordará que las etiquetas APL son 
nombres ordinarios separados de la ins- 
trucción por dos puntos (:). 

La transferencia incondicional APL se 
escribe anteponiendo al nombre de la 
etiqueta una flecha dirigida hacia la de- 
recha, que se lee «ir a». Por ejemplo: 


E 
4 Ñ 


La instrucción anterior da lugar a una 
transferencia incondicional a la instruc- 
ción cuya etiqueta es E. 

Supongamos que un programa APL tie- 
ne 10 líneas. En tal caso, el intérprete de 
APL supone que estas lineas están nume- 
radas automáticamente de 1 a 10. Si la lí- 
nea número 4 tiene una etiqueta (por 
ejemplo, E), durante la ejecución del 
programa se crea una variable temporal 
llamada E, cuyo valor es igual al número 


de línea que tiene dicha etiqueta (en 
este caso, 4). Esta variable se comporta 
del mismo modo que cualquier otra va- 
riable numérica. En particular, pueden 
hacerse operaciones con ella. Por ejem- 
plo, la instrucción: 


transfiere a la instrucción siguiente a la 
que tiene la etiqueta E, mientras que la 
instrucción 


transfiere a la etiqueta anterior. Natural- 
mente, es posible que el resultado de la 
operación no corresponda a una línea 
del programa. Podría ser cero, un núme- 
ro entero negativo, o un número positivo 
mayor que el número de líneas del pro- 
grama completo (en nuestro caso, 10). SI 
esto ocurre, el interprete da por termina- 
da la ejecución de este programa, pa- 
sando al que lo llamó o terminando total- 
mente la ejecución. Por tanto, la forma tí- 
pica de abandonar la ejecución de un 
programa en APL es la instrucción: 


La facilidad de realizar operaciones 
con las etiquetas da una flexibilidad 
enorme a las instrucciones de transferen- 
cia del APL, que pueden ajustarse al gus- 
to del programador y realizar con gran 
sencillez operaciones aparentemente 
muy complicadas. Veamos algunos 
ejemplos: 

La instrucción 


>(condición)/etiqueta 
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transfiere el control la instrucción que 
tiene la etiqueta indicada si la condición 
se cumple, pero continúa con la instruc- 
ción siguiente si la condición no se cum- 
ple. Es, por tanto, equivalente a la ins- 
trucción BASIC 


IF condición THEN GOTO etiqueta 
La instrucción 


=>(condición)tetiqueta 


tiene exactamente el mismo efecto. 
La instrucción 


>(condición)+etiquetal,etiqueta2 


transfiere el control a la instrucción lla- 
mada etiqueta2 si la condición se cum- 
ple, y la instrucción llamada etiqueta] si 
la condición no se cumple. Es, por tanto, 
equivalente a la instrucción BASIC 


IF condición THEN GOTO etiqueta2 
ELSE GOTO etiqueta 


La instrucción: 


setiquetaxcondición 


transfiere el control a la instrucción lla- 
mada etiqueta si la condición se cumple, 
y abandona la ejecución del programa 
si la condición no se cumple. Es, por tan- 
to, en algunos casos equivalente a la ins- 
trucción BASIC 


IF condición THEN GOTO etiqueta 
ELSE RETURN 


La instrucción 


>(xX)detiquetal, etiqueta2,etiqueta3 


transfiere el control a la instrucción lla- 
mada etiqueta? si X es igual a cero, a la 
instrucción llamada etiqueta2 si X es po- 
sitivo y a la instrucción llamada etique- 
ta3 si X es negativo. Es, por tanto, equi- 
valente a la instrucción BASIC 


IFX = O THEN GOTO etiqueta 1 
ELSE IF X > O THEN GOTO etiqueta2 
ELSE GOTO etiqueta3 


Veamos por qué. El signo de multiplicar 
aplicado a una variable es, en APL, la 
función signo, que nos da el resultado 
cero si X es igual a cero; el resultado 1 si 
X es positivo, y el resultado -1 si X es ne- 
gativo. La operación representada por la 
letra griega «fi», aplicada a una serie (en 
nuestro caso etiquetal, etiqueta2, eti- 
queta3) lo rota tantas posiciones como 
indique el número situado a la izquierda 
de la letra «fi» (que, en nuestro caso, es 
el resultado de «signo de X», osea 0, 10 
- 1). Por tanto, si X es cero, la serie se rota 
cero posiciones y se queda como esta- 
ba: etiquetal, etiqueta2, etiqueta3. La 
transferencia se efectúa, por tanto, a eti- 
queta1, que es el primer elemento de la 
serie. 


Si X es positivo, hay que rotar una posi- 
ción los elementos de la serie (de dere- 
cha a izquierda), con lo que se obtiene 
la nueva serie etiqueta2, etiqueta, eti- 
quetal, y la transferencia se efectúa a 
etiqueta2. Finalmente, si X es negativo, 
hay que rotar los elementos de la serie 
-1 posiciones hacia la izquierda, es de- 
cir, una posición hacia la derecha, con 
lo que la serie queda etiqueta3, etique- 
tal, etiqueta2 y la transferencia se efec- 
túa, como siempre, al primer elemento 
(etiqueta3). 


Vemos un último ejemplo de entre las 
infinitas formas que puede adoptar en 
APL la instrucción de transferencia. (Por 
supuesto, no es preciso aprenderlas to- 
das, sino sólo las que vayamos a utilizar 
con más frecuencia). 


>(etiquetal,etiqueta?l, etiqueta3 )JEX1 


Esta instrucción transfiere el control a la 
instrucción llamada etiquetal si X es, 
igual a 1, a la instrucción llamada etique- 
ta2 si X es igual a 2, y a la instrucción lla- 
mada etiqueta3 si X es igual a 3. Es, por 
tanto, equivalente a la instrucción BASIC 


ON X GOTO etiquetal, etiqueta2, eti- 
queta3 


Para terminar con las instrucciones de 
transferencia, vamos a ver cómo se pro- 
graman en APL diferentes clases de bu- 
cles. En primer lugar, el que en BASIC se 
escribiría así: 


FOR |=1TO 10 
NEXT | 
El programa correspondiente es: 


I+-1 
E 
>(1021I+1+1)/E 


Es decir: se asigna a | el valor inicial; se 
ejecuta el bucle; se incrementa en una 


unidad el valor de | y se compara con el 
valor final (10). Si es menor o igual, hay 
que seguir ejecutando el bucle y transfe- 
rimos a la etiqueta E. En caso contrario, 
seguimos con la instrucción siguiente. 


En segundo lugar, el bucle BASIC 
WHILE condición 

WEND 

El programa correspondiente es: 


E:=>(acondición)/E1 


»E 
Blir La 


Es decir, en primer lugar, se comprue- 
ba la condición. Si no se cumple, se 
abandona el bucle (el signo representa- 
do por una tilde es la negación lógica). 
Si se cumple, se ejecuta el interior del bu- 
cle y se vuelve a la etiqueta E (principio 
del bucle) para volver a comprobar la 
condición. 

Es evidente que esta forma de progra- 
mar da al programador una libertad ab- 
soluta y que pueden construirse estructu- 
ras de control y bucles tan complejos 
como se quiera, incluso muchos que no 
existen como tales en BASIC O PASCAL y 
que sólo podrían programarse con ayu- 
da de las instrucciones de transferencia. 


Un ejemplo 


fin de llegar a cono- 
cer la hoja de cálcu- 
lo vamos a pasar a 
ilustrar los puntos pre- 
vios con un ejemplo: 

El problema se 
plantea en unos al- 
macenes de un co- 
mercio, donde precisan llevar listas con 
datos de los artículos a cada sucursal, in- 
dicándoles el descuento a realizar en 
cada caso si éste es posible. 


Comenzamos por crear la máscara de 
la hoja de trabajo introduciendo el texto. 
Situese en la celda Al y comience a te- 
clear el encabezamiento. Observará 
cómo el indicador de modalidad cam- 
bia de ACTIVO a ROTULO. 


Cuando termine el rótulo completo 
puede pulsar (Intro) o cualquier tecla del 
cursor. Observará que a pesar de ser de 
longitud mayor a la de las celdas pode- 
mos visualizar todo el contenido de la 
misma, ya que ésta se posiciona sobre 
las celdas contiguas. Esto sólo ocurre en 
el caso de los rótulos y sólo mientras en 
la celda de la derecha no exista otro 
contenido. En nuestro caso como se tra- 
ta del encabezamiento la situación es 
válida. 


Continúe tecleando los rótulos hasta 
que estén todos. 


APLICACIONES 


HOJAS DE CALCULO LOTUS 1-2-3 


D12: (414) “PREC. VENTA 


1 
? 
3 
4 
5 
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Observe la posibilidad de crear una lí- 
nea que separe el encabezamiento de los 


rótulos laterales. Para ello vamos a inser- 
tar una línea en blanco y después intro- 
ducimos la separación, repitiendo el pro- 
ceso para el descuento de verano. En 
este caso, una vez insertada la línea co- 
piamos la del caso anterior. 


Una forma de escribir la línea para sub- 
rayar es como se ha hecho en la figura, 
es decir, utilizando una sola celda para 
escribir una larga tira de signos «=». Otro 
método, algo más cómodo, es utilizando 
la barra inclinada a la izquierda (1) y des- 
pués el símbolo que queramos que apa- 
rezca repetido, por ejemplo: 1=. 


Proceda a grabar la máscara que aca- 
ba de realizar. 


El siguiente paso consiste en la intro- 
ducción de las fórmulas: 


En primer lugar, introducimos el des- 
cuento a realizar en cada caso. Este 
debe ir expresado en tanto por ciento, 
para lo cual debemos acudir al coman- 
do RANGO; una vez en él, seleccionamos 
FMTO, y en éste seleccionamos la opción 
de que se exprese en %. Pulsamos la te- 
cla (Intro) y Lotus nos pregunta el número 
de decimales deseado, en este caso res- 
pondemos 0. Sólo queda indicar el ran- 
go de celdas que deben cumplir este for- 
mato: D2 y posteriormente con COPIAR lo 
pasamos a D12. 


De: (PO) [A11) 0,4 
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Pasamos ya a las fórmulas en sí. En pri- 
mer lugar, planteamos el precio de ven- 
ta, que será: 


PREC.VENTA = PREC.INICIAL — (PREC.INICIAL 
* DESCUENTO) 


Nos situamos en la celda D5 y teclea- 
mos: 


+B5-(B5'$D$2) 


$D$2 hace una referencia absoluta de la 
celda D2, de forma que al copiar la fór- 
mula en las líneas siguientes las celdas 
relativas son tratadas como tales y D2 
permanece fija en la fórmula. 


Será necesario cambiar esta referen- 
cia absoluta para copiar las formulas del 
descuento de verano poniendo: $D$12. 


La siguiente fórmula a tratar es el mar- 
gen obtenido: 


MARGEN = PREC.VENTA - COSTE 


Nos situamos en la celda E5 y teclea- 
mos: 


+D5-C5 


Nuevamente copiamos a las líneas si- 
guientes: 
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Pasamos al siguiente paso, que consiste Se comprueban los resultados obteni- 
en la grabación del modelo creado hasta dos, si estos son correctos ya se puede 
el momento y la posterior introducción de utilizar la hoja de cálculo para el trabajo 
los datos para verificar que éste es válido. concreto que queriamos realizar. 


PASCAL 


A instrucción GOTO 
(go to, «ir a», en in- 
glés) hace que se 
continúe ejecutando 
el programa en otro 
punto distinto a aquél 
en que se encuentra 
en ese momento. Por 
decirlo de otra manera, permite «saltar» 
a otro punto del programa desde el lugar 
en que se encuentra la instrucción. Es 
equivalente a la instrucción GOTO de 
otros lenguajes como BASIC O FORTRAN. 

El PASCAL tiene todas las estructuras de 
control necesarias para construir un pro- 
grama, es decir, secuencias, bifurcacio- 
nes y repeticiones, por lo que en multitud 
de ocasiones se le ha descrito de mane- 
ra pobre y superficial como un «lenguaje 
para programar sin GOTO». 

Sin embargo, hay casos (pocos) en 
que la utilización de GOTO puede simpli- 
ficar un programa y por ello se contem- 
pla su uso en PASCAL. Estos casos suelen 


label 10, 20; 


begin 
N := 0; 


N 3= N + 15 


goto 20; 


end. 


program EjemploGOTO; 
(X Label significa etiqueta *X 
const Pi = 3.141592654; 


var N : integer; 


10: writeln (”Esto se escribe repetidas veces.”); 


if N< 4 then goto 10; 


writeln (*Pero esto ni una.?”); 
20: writeln (*Adiós.”) 


LA INSTRUCCION GOTO 


ser aquéllos en que, por algún suceso ex- 
traordinario, se desea cambiar la mar- 
cha normal de un programa. En cualquier 
caso, dada su gran potencia, debe utili- 
zarse con mucho cuidado y sólo en ca- 
sos muy especiales. 

La instrucción consta de la palabra re- 
servada GOTO seguida de la «etiqueta» 
del punto al que se desea transferir la 
ejecución del programa. Esta etiqueta 
puede ser cualquier número natural de 
cuatro cifras como máximo, aunque al- 
gunas versiones de PASCAL permiten 
también el empleo de palabras o identi- 
ficadores válidos. La etiqueta debe estar 
escrita justo antes de la instrucción a la 
que se desea saltar separada de ella por 
dos puntos. 

Tan excepcional se considera su utili- 
zación que todas las etiquetas que se ne- 
cesiten deben ser declaradas previa- 
mente, tras la cabecera del programa (o 
procedimiento) y antes de la definición 
de datos, de la siguiente manera: 


se PASCAL 


es decir, tras la palabra reservada LABEL 
se escriben las diferentes etiquetas sepa- 
radas entre sí por comas. Para terminar 
se escribe un punto y coma. 

Caso típico de utilización de GOTO es 


if not Errori then 


if not Error2 then 


o sea, poner como condición para la eje- 
cución de lo que viene a continuación la 
no existencia de error. Si, por ejemplo, el 
error se detectase dentro de una estruc- 
tura REPEAT, habría que ponerlo también 
como condición de salida del bucle: 


Error3 := (... la condición que sea) 
until Error3 or Salir 


Sin embargo, mediante GOTO la cues- 
tión se simplifica: 


if Error3 then goto 100 
until Salir; 


Erroriz= (...la condición de error que sea...) 
(x pi iia el resto del programa: X*X) 


Error2 := (...la condición de error que sea...) 


writeln (*Fin del programa.”) 


aquél en que se detecta un error en una 
fase temprana de la ejecución de un pro- 
grama y se desea entonces que se de- 
tenga. Para conseguir esto sin GOTO se 
podría hacer: 


400: writeln (*Fin del programa.) 
end. 


La única restricción existente en el PAS- 
CAL estándar a la hora de realizar un sal- 
to es que sólo se puede saltar a un pun- 
to dentro del mismo bloque de programa 
en que nos encontremos en el momento 
del salto, es decir, no se puede ir desde 
dentro de un procedimiento a otro que 
sea independiente de aquél o de nivel 
inferior. 

A la hora de buscar la etiqueta de des- 
tino de una instrucción GOTO se empie- 
za mirando en las definidas localmente, 
pasándose luego a buscar entre las del 
procedimiento en que esté inserto el pro- 
pietario del GOTO, etc., de manera aná- 
loga a como se hace con las variables o 
con las llamadas a procedimientos. En 
otras palabras, desde una instrucción de 
un subprograma dado sólo se puede sal- 
tar a otra instrucción del mismo subpro- 
grama, o de un subprograma en el que 
esté inserto aquél (incluyéndose, por 
tanto, la zona de instrucciones del pro- 
grama principal) y siempre que esa mis- 
ma etiqueta no esté definida localmen- 
te. 


El salto al interior de una instrucción es- 
tructurada (IF, FOR...) desde fuera de ella 
puede producir errores inesperados, 
aunque hay compiladores que no avisan 
de la presencia de semejantes situacio- 
nes. Veamos unos ejemplos de empleo 
incorrecto de GOTO: 


procedure Fase0; 
label 10; 
begin 
40: writeln 
end; 


goto 10; 

(* Salto inválido pues la etiqueta ”) 

(" 10 es un detalle interno de Fase0 *) 
(" y aquí no se conoce su existencia *) 


tor | := 4 to 40 do 
begin 
Fase4; 
3: Fase2 
end; 
goto 3; 


goto 20; 
if A then 20: writeln; 


Puede que alguien sienta la tentación 
de declarar al principio: 


label 
10, 20, 30... 
.--500, 510, 520... 
.:- 1000, 1040, 1020...; 


y programar «al estilo BASIC»; en ese caso 
es que no ha comprendido el propósito 
y las ventajas de la programación estruc- 
turada. Sin embargo, tampoco se debe 
ser purista y complicarse la vida para no 
utilizar jamás la instrucción GOTO. La nor- 
ma que hay que seguir en todo momen- 
to es la de máxima claridad y, si ésta se 
consigue con GOTO, no hay que dudar 
en utilizarla. 


NOTAS: 


— La utilidad de acabar la ejecución 
de un procedimiento mediante un salto 
al final es tal, que muchos compiladores 
disponen de una instrucción de salto es- 
pecial para ello, que suele escribirse 
como EXIT (salida). 


— Existen algunos compiladores que 
son más restrictivos que el PASCAL están- 
dar, permitiendo solamente el salto entre 
puntos pertenecientes a un mismo sub- 
programa. 


Almacenamiento dinámico 


Con lo que sabemos por ahora, cuan- 
do hemos necesitado guardar en memo- 
ria muchas fichas para, por ejemplo, or- 
denarlas según un criterio dado, hemos 
acudido a estructuras de tipo «array of re- 
cord». 

Este tipo de almacenamiento se deno- 
mina estático, pues la porción de memo- 
ria destinada a las fichas se asigna al es- 
cribir el programa y no cambia durante 
su ejecución. Hasta ahora, todos los 
ejemplos de almacenamiento en memo- 
ria de variables globales que hemos vis- 
to han utilizado almacenamiento está- 
tico. 

Existe, no obstante, un método de al- 
macenamiento en memoria denomina- 
do «dinámico», que permite reservar por- 
ciones de memoria sobre la marcha e in- 
cluso utilizar una determinada zona para 
diferentes cometidos en diferentes mo- 
mentos. Aunque las variables locales de 
un procedimiento tienen estas caracte- 
rísticas, sólo existen durante su ejecución 
y, además, su número y la cantidad de 
memoria que ocupan sí está definida al 
escribir el programa, por lo que, para evi- 
tar confusiones, no las incluiremos entre 
las que llamaremos desde ahora varia- 
bles «dinámicas». 

El programa de ordenación de datos 
que escribimos en otra ocasión tenía el 
inconveniente de que el máximo núme- 
ro de fichas (100) estaba definido al 
crear el programa. En casos así, para evi- 
tar quedarse corto hay que crear tablas 
suficientemente grandes, pero entonces 
habrá ocasiones en que sólo se utilice 
una pequeña parte de la memoria reser- 
vada al principio. 

En PASCAL es posible crear variables, 
no en el momento de escribir el progra- 
ma, sino cuando éste se está ejecutando 
y a medida que se vayan necesitando. 
Al no estar definidas en la zona de decla- 
ración de datos, estas variables no tie- 
nen nombre y para referirse a ellas se uti- 
lizan los denominados PUNTEROS. 


s PASCAL 


Un puntero es una variable especial 
que sirve para guardar una indicación 
de en qué sitio de la memoria se encuen- 
tra una variable dinámica. Si escribimos: 


type 
Nombre.t = array (1..12) of char; 
Ficha.t = record 
Nombre, 
Apellido4, 
Apellido2 : Nombre.!t; 
Nota.A, 
Nota.B, 
Nota..C : real 
end; 


Punt.t = “Ficha.,; 
var 
A, B: Punt.t; 


le estamos diciendo al compilador que 
todas las variables de tipo Punt.t son pun- 
teros que sirven para «apuntar» a varia- 
bles de tipo Ficha.t. Es decir, el tipo de 
puntero se indica con el símbolo ” segui- 
do del tipo de variable al que apunta. 

Cuando el programa ya está funcio- 
nando, para reservar sitio para una nue- 
va ficha se utiliza la función NEW (nuevo 
en inglés): 


new (A); 


de esta manera se reservaría memoria 
para una variable de tipo Ficha.t y su di- 
rección quedaría guardada en la varia- 
ble A. Cuando quisiéramos utilizar la fi- 
cha, en lugar del nombre que no tiene 
pondríamos A”, que significa «la variable 
apuntada por A» y que es totalmente 
equivalente. 

La única operación posible entre pun- 
teros es la asignación, es decir, guardar 
el contenido de uno en otro. 

Para guardar muchas fichas necesita- 
ríamos tener tantos punteros como fichas, 
por ejemplo, con un «array of Punt.t», 
con lo que si éste se llamara Tabla, para 
leer las fichas podríamos hacer: 


for 1: = 4 to Total do 
begin 
(" Reservar sitio: ”) 
new (Tabla (1)); 


(" Rellenarla: *) 


with Tabla (1)" do 
begin 


end; 


La modificación del programa Ordenar 
resultaría muy fácil; el procedimiento Or- 
dena, no obstante, podría ser mejorado 
ligeramente, pues para permutar dos fi- 
chas bastaría con permutar sus punteros 
sin tocarlas a ellas para nada. 

Esta manera de proceder sigue tenien- 
do el mismo problema que la anterior, 
aunque menos grave, pues, al ocupar un 
puntero mucha menos memoria que una 
ficha, nos podríamos permitir preparar la 
tabla con un número sobradamente am- 
plio de elementos. 

Una solución mejor podría ser guardar 
el puntero de cada ficha en la anterior a 
ella, en un campo especialmente prepa- 
rado para ello. 

Para llegar a una ficha dada habría 
que tomar de la primera el puntero que 
alberga y con él podríamos utilizar ya la 
segunda ficha, de la que tomaríamos el 
puntero que lleva a la tercera, etc., has- 
ta encontrar la ficha deseada. 

De esta manera, tanto punteros como 
fichas se irían reservando en memoria se- 
gún se fueran necesitando. Las fichas 
quedarían más o menos así: 


Alvaro Ernesto Carlos 
Cavero Fernández González 
Comino González Pozas 
FE 8.9 7.6 
5.1 7.3 9.1 
4.5 7.6 8.5 
(SIGUIENTE) (SIGUIENTE) (SIGUIENTE) 
etc. 


Esto es lo que se denomina una estruc- 
tura de tipo «lista encadenada». Haría fal- 
ta además un puntero aparte para poder 
utilizar el primer elemento. Para indicar 
que un elemento de la lista es el último 
lo que se hace es dar al puntero que al- 
berga el valor predefinido NIL, cuyo sig- 
nificado es que no apunta a ninguna va- 
riable; por ejemplo: 


Siguiente := nil; 


FIN 


FORTRAN 


Sentencias 
de 
entrada/salida 


AS sentencias de e/s 
se utilizan para reali- 
zar el intercambio 
de información entre 
el ordenador y los pe- 
riféricos. En este apar- 
tado sólo se define la 
entrada/salida reali- 
zada a través de la pantalla y del tecla- 
do. 

Para un compilador FORTRAN cada uno 
de los dispositivos tiene asociado un nú- 
mero lógico. En el FORTRAN utilizado son: 


— 0: para la entrada por pantalla. 

— 0: para la salida por pantalla. 

Estos números aparecen en todas las 
instrucciones para identificar el periferi- 
co. El formato de estas instrucciones es: 


Lectura: READ (0, NUM1) variable-1, va- 
riable-2,..., variable-n 

Escritura: WRITE (0,NUM2) variable-1, va- 
riable-2,..., variable-n 


WRITE € 0, 10 


100 FORMAT (€ 3X, 


WRITE € 0, 300) 


STOP 
END 


PROGRAMA CON FORMATOS DE EDICION. 


300 FORMAT € //, 1X, “AHORA SALTO UNA LINEA” 2 


OTROS LENGUAJES 


que permiten leer y escribir la lista de va- 
riables que las acompañan. 

Para saber en qué forma se debe ha- 
cer la operación, las instrucciones de e/s 
van acompañadas de una sentencia de- 
clarativa: sentencia FORMAT, identifica- 
da por un número de sentencia (NUMI1, 
NUM2) que se corresponde con el núme- 
ro de formato especificado en la senten- 
cia de e/s. 


READ (0,100) MES,PESO 
100 FORMAT (... ) 


Las sentencias FORMAT pueden apare- 
cer en cualquier parte del programa, 
aunque para mejorar la legibilidad del 
mismo es conveniente situarlas bien de- 
trás de la operación asociada, bien to- 
das juntas al final del programa. 

Dentro de la sentencia FORMAT pueden 
aparecer los caracteres: 


“/“ Indica que la lectura o escritura 
debe realizarse en la siguiente línea. 
Pueden utilizarse repetidas y no precisan 
estar separadas por comas. 

nX: Deja n espacios en blanco. 

«l»: Si se emplea con una impresora, 
hace que salte a la página siguiente. 


“0 OTROS LENGUAJES 


Para leer o escribir una variable entera 
se utiliza la especificación In, donde n in- 
dica el número de caracteres (longitud 
del campo) reservados para la variable. 
Si n es menor que la longitud de la varia- 
ble, se truncará, y si es mayor se rellena- 
rá con ceros a la izquierda. 

Si la variable tiene signo es necesario 
reservar una posición más. Si en la lectu- 
ra se dejan espacios en blanco en los úl- 
timos caracteres, el FORTRAN los interpre- 
ta como ceros. | 

Fn.d, sirve para leer o escribir variables 
reales. nx es la longitud total del dato, in- 
cluyendo el punto y el signo. d es el nú- 
mero de cifras decimales. 


Si se trata de una variable lógica (to- 
mará los valores .TRUE o .FALSE), se utiliza 
la cláusula Ln, n es la longitud de la va- 
riable. En lectura se asigna valor cierto 
(.TRUE.) a la variable, si al recorrer el dato 
de derecha a izquierda se encuentra una 
T antes que una F. Si no se encuentra nin- 
guna de las dos, no se da valor. En escri- 
tura se imprime una T o una F, .TRUE. o 
.FALSE., respectivamente. 

Si se va a trabajar con una variable al- 
fanumérica, debe especificarse An. Si n 
es mayor que la longitud del campo, re- 
llena con blancos a la derecha. Si es me- 
nor, truncará. 


INTEGER CAMPO 
REAL LIMITE 
WRITE (€ 0, 100 > 


READ € 0, 200 > CAMPO 
200 FORMAT ( 14 > 

WRITE (€ 0, 400 > 

READ £ 0, 500 > LIMITE 
500 FORMAT € FS.2 2 

WRITE € 0, 600 > LIMITE 


sTOP 
END 


C PROGRAMA EJEMPLO DE LECTURA Y ESCRITURA. 


100 FORMAT (€ 2X, “VOY A LEER UNA VARIABLE ENTERA DE 4 POSICIONES”> 


WRITE £ 0, 300 > CAMPO, CAMPO 


300 FORMAT (2X, “LA ESCRIBO CON 3 “*, 13,/,1X,"“LA ESCRIBO CON S “, 15 > 


400 FORMAT ( 2X, “LEO UNA VARIABLE REAL” > 


£00 FORMAT € 2X, “TIENE 2 POSICIONES ENTERAS “, FS.2 > 


e 
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